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!# ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS 4 att ed A_ LICENSE AND MAY BE USED 1 gop ree 
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'* ONLY IN ACCORDANCE WITH ERMS OF SUCH LICENSE AND WITH T 
:° U THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY H 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


ie TRANSFERRED, 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
he OORPORAT | Dn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'e« 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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' 
3 FACILITY: 
: DISMOUNT Utility Structure Levels 1 &@ 2 
3 ABSTRACT: 
: This module contains all the various and qunery general 
3 ‘ pyrpese utility routines used by cluster functions within 
3 ‘ These routines are also called by the MOUNT system 
service. 
4 4 : 
re B06 Environment: 
45 04 : STARLET operating system, including privileged system services 
: Be and internal exec routines. 
4 04 i Author: 
“ 004 ; 
Hai Huang 
' 
! 
‘ 
' 
' 
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! Start of CLUSUTIL 
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ie 62 1 LIBRARY ‘SYSSLI wet 18.L32'; 

i 64 1 REQUIRE ‘SHRLIBS:C(SPDEF'; 

3 65 5 : REQUIRE ‘LIB :MOUDEF , B32'; 

: $3 790 1 FORWARD ROUTINE 

; «668 791 «4 SEND_CLUSTER, ! Routine for cluster communication 

3 9 188 1 SEND CLUSTER_HANDLER, i Turn kernel mode signals to retrun 

3 4 at, ! IN_CCUSTER; i Determine if the system is in a cluster 

: ? 795 ? 

: ie 739 } ; Define routine Linkages 

ee 799 1 LINKAGE 

: 7 800 1 ALLOC_CSD = JSB ait? 2 + dF REGISTER=2) 

: «78 801 1 SERVE (3) NOTUSED (4,5,6,7,8,9,10,11), 

3 79 oe 1 CSP_CALL = JSB cnéGhsTER=s) 

g 0 0 1 User (3,4,5,6,7,8.9,10,11), 

z 1 06 1 DALLOC_CSD = JSB cREGhS TERS 

: 8 05 1 : HOPRESERVE (2,3) NOTUSED (4,5,6,7,8,9,10,11); 

; § 0808 1 

: BS 0808 | | 

: ° $4 ; Run-time Library and other routines external to the facility 

: 88 O81) 1 EXTERNAL ROUTINE 

3 89 aig 1 LIB$SIG_TO_RET : ADDRESSING -MODE (GENERAL ' Convert a signal to a return 
; 90 081 1 EXESALLOC CSD : ALLOC_CSD ADDRESSING AOE (GENERAL), ! Allocate a CSD structure 
; 91 0814 1 EXESCSP BRDCST : CSP_CALL ADDRESSING “MODE (GENERAL), ! Broadcast with CSP 

; ; Bale : EXESDEACLOC CSD : DALCOC ‘tsp ADDRESSING “MODE (GENERAL); ! Release CSD structure 
: ¥ O81 1s 

; % a8i8 Define the CODE psect so that the generated code has PIC and SHR attributes 

: 98 0831 1 PSECT CODE = Z$DISMOUNT (PIC, SHARE); 

: O99 0 $8 1 

; 106 08 1 


1 
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GLOBAL ROUTINE SEND_CLUSTER ( MSG_PTR, MSG_LEN, MSG_PRM ) = 
‘ee 
FUNCTIONAL DESCRIPTION: 


Kernel mode routine to send a message to every remote node 
on the cluster. 


CALLING SEQUENCE: 
SEND_CLUSTER (ARG1, ARG2, ARG3) 


ARG! : Address of message 

ARG : Length of message 

ARG : Message dependent parameter 
IMPLICIT INPUT: 

None. 
OUTPUT: 

None. 
IMPLICT OUTPUT: 

None. 
SIDE EFFECTS: 

Messages will be sent to remote nodes. 
ROUTINE VALUE: 

Status from comm primitive. 
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BEGIN ! Start of SEND_CLUSTER 
LOCAL 
CSD : REF BBLOCK, 
STATUS : LONG; 
LITERAL 
PRM_LEN = 4; ! Length of message parameter 


' 
} Trap anything weird, and turn it into a return 


a ee ee LLL 
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NABLE 
SEND_CLUSTER_HANDLER; 
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Allocate a svar iste CSD block for the transfer. Common fields in the 
CSD are initialized by the allocate routine. 

ATUS = FXESALLOC. CSD (CSDSK_LENGTH + .MSG_LEN * PRM_LEN; CSD); 
wor STATUS 


te we we wee wee 


ST 
F 
H 
RETURN .STATUS; 


' 
Set the message dependent fields in the CSD 
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O03 09 02 09 0D 00 CD CD CD CD COCO CD COC CWC COW OD 


i 
i 
CSD CSD$W_CO EJ = CSD$K_MOUNT; ' Set the MOUNT client code 
CSD L-P1 _PRA; ' Set eotiser. into packet 
CSD CSD$L~SENDOF# ="CSD CCSD$L_P2) - .CSD; ' Store offset to the actual message 
38 CSO LCSD$L_SENDLEN) = MSG, N; ' Store size of message 
9 CHSMOVE (.ASG_LEN, .MSG_PTR, CSD CCSD$L_P2]); | Move the message into the CSD 
98 CSD Sst “RECVOr” = CSD CEsOSL_RECVLEN) = 6; | We do not want a reply 
9 CSD CCSDSA_A 0; ! 7° song tet ion AST rout tne 
301 CSD CCSDSL_ “0310 ' “1; ' Set CSP broadcast function 
' 
$08 Now send the message 
905 @ STATUS = EXESCSP_BRDCST (.CSD); ! Send the CSP message with 


' the template CSD 
! Deallocate template CSD 


33 


EXESDEALLOC_CSD (.CSD); 
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908 
909 2 RETURN .STATUS; 
910 1 END; ! End of SEND_CLUSTER 
.TITLE CLUSUT 
“IDENT \V04-000\ 
.EXTRN LIBS$SIG_TO_RET, EXESALLOC_CSD 
-EXTRN EXESCSPTBRBCST. EXESDEALLOC_CSD 
.PSECT ZSDISMOUNT,NOWRT, SHR, PIC,2 
00FC 00000 ENTRY SEND CL CLUSTER, Save R2,R3,R4,R5,R6,R7 F 
6D 0050 F DE 0 03 ROVAL : 
51 08 AC 9000 056 =F ( 0007 ADDL 86, MSG LEN : 
000006 10 JSB exes ALLOE ess * ; 
57 D 1 MOVL RQ. s ; 
6 D 1 MOVL 6 F 
4 E 1¢ BLBC status 1$ : 
9¢ rvs 6 8 1 MOV 6 tcp) ; 
2 6 oc AC OD MOVL. MSG_PRM, 82(CSD) 3 
$2 56 36 : SUBL 3 cS $6, R2 : 
1g Ab 56 A ‘ MOVAB 86(R2), 22(¢sp) ; 
12 A AC D MOVL MSG_LEN, 18(CS : 
5 5 MOVL. CSD7 R2 ; 
56 A2 0 8B 08 AC MOVES WSG LEN, @MSG_PTR, 86(R2) ; 
A nm 7 rt CLRO , CSD) 3 
22 Ab D4 0004 CLRL 4(CSD) ; 
OE Ab 01 CE 00046 MNEGL #1, 14(CSD) ; 


: O89 
; 0900 
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REF BBLOCK, MECH : REF BBLOCK) = 


AX=11 Bliss-32 V4.0- eit. 
DISMOU.SRCICLUSUTIL.832;1 


This routine intercepts kernel mode signals, the signal is 


A return is made te the caller with the error status. 


191 9 1 
138 , : ROUTINE SEND_CLUSTER_HANDLER (SIG : 
194 9 1 fee 
195 9 1; 
138 9 1 ! FUNCTIONAL DESCRIPTION: 
19 9 1! 
198 9 1! 
199 9 + converted to a return. 
00 9 1! 
01 24 : INPUTS: 
08 9 1! $1G : Signal argument List 
3 ; : MECH : Mechanism argument List 
o¢ 9 1! IMPLICIT INPUTS: 
0 9 & 
08 9 1! None. 
09 9 ,; 
10 9 1 ! OUTPUTS: 
} aeyi 
one. 
18 $9 1! 
14 38 1 ! IMPLICIT OUTPUTS: 
15 9 1! 
16 4 7% None. 
17 9 1! 
18 09 1 ! ROUTINE VALUE: 
19 09 . 
0 0941 1! None. 
1 094 + 3 
¢ 0945 1 ! SIDE EFFECTS: 
944 1! 
4 945 1! 
5 946 1! 
$ 947 1 !e- 
2 948 1 
8 94 BEGIN 
9 950 : 
: 4h Convert the signal to a return 
¢ 3237 RETURN LIBSSIG_TO_RET (.SIG, .MECH); 
34 0955 END; 


! End of SEND_CLUSTER_HANDLER 


0000 00000 SEND_CLUSTER one n* 


06 
000000006 0 


; Routine Size: 14 bytes, Routine Base: 


-WOR Save nothing 
mova 3h = (SP) 

a. CALLS #2, LIBS$SIG_TO_RET 
RET 


Z$DISMOUNT + 0073 
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GLOBAL ROUTINE IN_CLUSTER = 
lee 
FUNCTIONAL DESCRIPTION: 


This routine determines if the system is running in a 
cluster environment. 


CALLING SEQUENCE: 
IN_CLUSTER () 
INPUT: 
None. 
IMPLICIT INPUT: 
None. | 
OUTPUT: 
None. 
IMPLICT OUTPUT: 
None. 
SIDE EFFECTS: 
None. 
ROUTINE VALUE: 
0 : If not running in a cluster 


1 : If running is a cluster 
Otherwise: System service error status 


BEGIN ' Start of IN_CLUSTER 
CLUSTER_FLAG =: LONG 
SY1_NODE : VECTOR C4 LOnG3 ' List 
INITIAL ((8¥I$ CLUSTER WERDER” 6 OR 4), 
CLUSTER FLAG, 


LOCAL 
STATUS : LONG; 


4 
! Get system information to see if we are in a cluster. 


if NOT (STATUS = SGETSYJW (ITMLST=SY1_NODE)) 


vOs=000" 


3; Routine Size: 


95 


FRRGNLS SRLS 


ibesepet 


be 12:30:03 — EDYSmOuS sae SccusUtit-039,1 


14-Sep-1 
1015 THEN RETURN .STATUS; 
119 5 
1 18 Return value of cluster_flag 
p if .CLUSTER_FLAG 
; RETURN 1 
4 RETURN 0; 
1026 1 END; ! End of IN_CLUSTER 
.PSECT SOWNS,NOEXE,2 
00000 CLUSTER_FLAG: 
.BLKB 4 
10CF0004 00004 SYI_NODE: 
.LONG 282001412 
0000000' 00008 -ADDRESS CLUSTER_FLAG 
0000000 900¢ ‘LONG 0 
0001 “BLKB 4 
EXTRN SYSSGETSYIW 
PSECT ZS$DISMOUNT,NOWRT, SHR, PIC,2 
0000 000 eENTRY IN_CLUSTER, Save nothin 
76°90 O0a9 tira =< SP) . ° 
7E 04 004 CLRL ss = (SP) 
0000° cf F 09 PUSHAB SYI_NODE 
—E 7C OOO0A CLRO 0 =( SP) 
43 D4 C CLRL = (SP) 
000000006 00 : FB CALLS #7, SYSSGETSYIW 
0 € 1 piecO SS 
4 0000° cf 9 6 1 BLBC CLUSTER_FLAG, 1$ 
0 1 BO 1p MOVL #1, R 
so BREET ye, 
Be 5 3 2: RET 


36 bytes, Routine Base: Z7$D]SMOUNT 


PSECT SUMMARY 


! End of CLUSUTIL 


' [ 
CLUSUTIL Ses Sep 4 AX-11 Bliss-32 v4 i- 4 Page 11 
Thesb00 Ve~geo=t3Re F3:5h:33 ET SAbUP Saeco asi ie ass. 1 9 5) | 
3 Name Bytes Attributes 
: 2$D1SMOUNT 165 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC .ALIGN(3) 
PF} $ 0 NOVEC, WRT, RD * NOEXE. NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


PETE seas Symbols Seana saas Pages Processing 
File Total Loaded Percent Mapped Time 
-$2558DUA28: (SYSLIBILIB.L32;1 18619 12 0 1000 00:02.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CLUSUTIL/OBJ=OBJ$:CLUSUTIL MSRC$:CLUSUTIL/UPDATE=(ENH$:CLUSUTIL) 


311 197" 0 
Size: 165 code + 20 data bytes 
Run Time: 116, 1 
Elapsed Time: z. & 
Lime s/CPU Min: 


4399 
Lexenes/CPU-Rin: 35620 
Y Used: 114 pages 
oe ation Complete 


0105 AH-BTi3A-SE DIGITAL EQUIPMENT CORPORATION 
Vi¥w VAX/VMS V4.0 CONFID 


ENTIAL .AND PROPRIETARY 


